home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Markets / Education / HyperCard In Education / Frames of Reference / card_10480.txt < prev    next >
Text File  |  1990-04-02  |  3KB  |  103 lines
  1. -- card: 10480 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 10181
  5. -- name: Experiment 4
  6. ----- HyperTalk script -----
  7. on runExperiment
  8.   global cardClear4
  9.   global trace4
  10.   global cartAccel4,dropHeight4
  11.   global timeIncrement4
  12.  
  13.   put 0 into cartSpeed
  14.   put 0 into timeElapsed
  15.   put 200 into dropX
  16.   put 300 into floorY
  17.   put (floorY-dropHeight4) into dropY
  18.   put the loc of button "ball" into oldPoint
  19.   put 9800 into G  -- Gravity in mm/s/s
  20.   put false into cardClear4
  21.   choose line tool
  22.   set the lineSize to 2
  23.   put "Click the mouse to stop." into field "blurb"
  24.  
  25.   repeat until the mouse is down
  26.     put (dropX-(cartAccel4*timeElapsed*timeElapsed)/2) into x
  27.     put (dropY+(G*timeElapsed*timeElapsed)/2) into y
  28.     if (x < 0) or (y > 300) then exit repeat
  29.     put round(x) & "," & round(y) into newPoint
  30.     set the loc of button "ball" to newPoint
  31.     if trace4 is true then drag from oldPoint to newPoint
  32.     put newPoint into oldPoint
  33.     put timeElapsed+timeIncrement4 into timeElapsed
  34.   end repeat
  35.  
  36.   choose browse tool
  37.   put "Click on this field to restore the screen." into field "blurb"
  38.   show menubar
  39.  
  40. end runExperiment
  41.  
  42. on openCard
  43.   global cardClear4,dropHeight4
  44.   if (cardClear4 is true) and (item 2 of the loc of button "ball" <> (300-dropheight4)) then
  45.     put false into cardClear1
  46.     click at the loc of field "blurb"
  47.   end if
  48. end openCard
  49.  
  50.  
  51.  
  52. -- part 3 (button)
  53. -- low flags: 00
  54. -- high flags: 0000
  55. -- rect: left=191 top=57 right=85 bottom=209
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 16003 / 16003
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: Electromagnet
  64.  
  65.  
  66. -- part 5 (button)
  67. -- low flags: 00
  68. -- high flags: 0000
  69. -- rect: left=183 top=83 right=117 bottom=217
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 8499 / 8499
  72. -- text alignment: 1
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: Ball
  78.  
  79.  
  80. -- part 6 (field)
  81. -- low flags: 81
  82. -- high flags: 2004
  83. -- rect: left=11 top=40 right=326 bottom=403
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 0
  87. -- font id: 3
  88. -- text size: 12
  89. -- style flags: 256
  90. -- line height: 16
  91. -- part name: Help
  92.  
  93.  
  94. -- part contents for background part 5
  95. ----- text -----
  96. Press this field to trace the path of the ball.
  97.  
  98. -- part contents for card part 6
  99. ----- text -----
  100.    This experiment is very similar to experiment #1.  This experiment deals with a ball suspended from an electromagnet which is moving to the right with a constant acceleration.  Thus, in the cart frame, the ball does not fall straight down.  Instead, it falls in a straight diagonal line to the left.  The exact angle of the line depends upon the acceleration of the electromagnet.
  101.    This card simulates that experiment.  It will compute and draw the path of the ball in the cart frame based on the parameters you can set by clicking on the "Set Parameters" button in the control panel.
  102.    For a complete description of the experiment, click on the "Experiment Video" button in the control panel, then click on the first button in the list of selections which will appear.
  103.